This is the code to stop someone from opening your program if they do not have the correct HWID.

=======================================================

function eax: String;
var
SerialNum,A,B: DWord;
C: array [0..255] of Char;
Buffer: array [0..255] of Char;
begin
if GetVolumeInformation(pChar('C:\'), Buffer, 256, @SerialNum, A, B, C, 256) then
  Result := rax(SerialNum * Cardinal(-1))
else Result := '';
end;
*if EAX <> 'Hardware Id Here' THEN HALT;

========================================================

Change Hardware Id Here to the hardware id you get from a HWID Finder 